INCLUDE "Z80.POD"
SETUP   
TRAP ACTIVE FORCE LINE NO   
TRAP ACTIVE INTERRUPT NO

PROGRAM MAIN   
REGF = 9000   
REGE = 00

1: LABEL 1   
REG0 = REGF   
REG1 = REGE   
WRITE @ 10000 = 0   
REGF = REG0   
REGE = REG1   
WRITE @REGF = REGE      
WRITE @ 1000
